home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / demos / graphics / dessin.dem < prev    next >
Text File  |  1999-09-16  |  424b  |  24 lines
  1. mode(-1)
  2. oldln=lines()
  3. lines(0)
  4.  
  5. deff('[]=xdemo(info,str)',['x_message([info;str]);xbasc();';
  6.                            'write(%io(2),str)';
  7.                            'execstr(str)']);
  8. xset("default");
  9.  
  10. exec('SCI/demos/graphics/dessin-1.dem');
  11.  
  12. nn=prod(size(str_l))
  13. while %t then
  14.   num=x_choose(info_l,'Choose a demo    ');
  15.   if num=0 then 
  16.      lines(oldln(1))
  17.      return
  18.   else
  19.      xdemo(" ",str_l(num));
  20.   end,
  21. end
  22.  
  23.  
  24.